fuso<-function(x) ##para coordenadas do Oeste
{
cat(" Lembre-se em digitar a longitude como no exemplo: 47.2217 ao invs de 472217W ")
a=floor(x/6)
fuso.x=30-a
cat("\t","\n","\t","O fuso : ","\t")
return (fuso.x)
}

#para dados do leste, voc pode altererar o sinal para adiao ao invs de subtrao
#Exemplo: fuso.x=30+a